;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-21-2004
;;;	   Edited:  2-13-2007
(defun ppgrid-arch-d_error (msg / )
  (if old_attrreq
    (setvar "attreq" old_attreq)
  )
  (princ msg)
  (setq *error* old_ppgrid_error)
  (princ)
)
(defun c:ppgrid-arch-d ()
  (setq old_ppgrid_error *ERROR*)
  (setq *error* ppgrid-arch-d_error)
  (if ukword nil (load "ukword" "File UKWORD.LSP not found! "))
  (SETQ old_attreq (GETVAR "ATTREQ"))
  (SETVAR "ATTREQ" 0)
;;;  (setq whichgrid (strcat(ukword 1 "20 25 30 40 50 60" "Horiz.scale? [20 25 30 40 50 60]" (if whichgrid (substr whichgrid 1 2) "50")) "ppgrid-arch-d"))
  (setq whichgrid "50ppgrid-arch-d")
  (if c:mklayr nil (load "mklayr" "\nFile MKLAYR.LSP not loaded! "))
  (c:svlayr)
  (command "-layer" "m" "50ppgrid-arch-d" "")
  (command "-insert" whichgrid "0,0" 1 1 0)
  (c:rslayr)
  (SETVAR "ATTREQ" old_attreq)
  (setq *error* old_ppgrid_error)
  (princ)
)